100 REM   ----> USAGE NOTES <----
110 REM
120 REM  ALL CODES ARE FIVE CHARACTERS
130 REM  FOLLOWED BY A RETURN...ANY
140 REM  WILL WORK, BUT IT'S VERY IM-
150 REM  PRESSIVE TO HAVE THEM WRITTEN
160 REM  ON A CARD OR PIECE OF PAPER
170 REM  WITH THE UNDERSTANDING THAT
180 REM  YOU GOT THEM FROM A HACKER
190 REM  FRIEND WHO GOT THEM FROM AN
200 REM  UNDERGROUND BBS. (SAME GOES
210 REM  FOR THE PHONE NUMBER)
220 REM
230 REM  WHEN THE VERIFICATION CODE IS
240 REM  REQUESTED, RANDOM BOOK NAMES
250 REM  ARE PRINTED...WE PRETEND WE
260 REM  ONLY HAVE THE CODES FOR 2 OR 3
270 REM  OF THE BOOKS AND RELUCTANTLY
280 REM  HANG-UP AND START OVER IF IT'S
290 REM  NOT ONE OF THE BOOKS WE KNOW.
300 REM
310 REM  WHEN COMMAND LEVEL IS REACHED
320 REM  ANY CHARACTER STRING IS ACCEP-
330 REM  TED SO YOU CAN USE SOME IMAGI-
340 REM  NATION (CODE RED, AZTEC, ETC.)
350 REM  ...COMMAND RESPONSES ARE THREE
360 REM  RANDOM CRYPTOGRAPHIC FUNCTIONS
370 REM  TO ENHANCE THE ILLUSION OF
380 REM  HAVING GAINED ENTRY TO A FOR-
390 REM  BIDDEN NETWORK.  HOWEVER, SO
400 REM  YOU CAN EXERCISE SOME CONTROL
410 REM  OVER WHAT HAPPENS, ANY COMMAND
420 REM  BEGINNING WITH THE CHARACTERS
430 REM  ACC, CEN, OR COM (AS IN 'COM-
440 REM  MAND CENTER REQUEST', 'ACCESS
450 REM  CENTRAL', OR 'CENTER ENTRY')
460 REM  WILL RESULT IN AN INVALID COM-
470 REM  MAND WARNING (ONLY 5 ALLOWED).
480 REM
490 REM  A COMMAND BEGINNING WITH THE
500 REM  WORD LANGLEY (E.G. 'LANGLEY
510 REM  ACCESS REQUESTED') WILL GET
520 REM  YOU TO LANGLEY COMMAND CENTER
530 REM  WHERE THE EXCITEMENT BEGINS.
540 REM
550 REM  WITH THE RIGHT PRESENTATION,
560 REM  THIS IS A MOST EFFECTIVE
570 REM  PROGRAM.  DON'T FORGET TO SET
580 REM  UP THE PHONE AND MODEM BEFORE
590 REM  RUNNING (COVER THE MODEM LIGHT
600 REM  IF YOUR AUDIENCE KNOWS IT'S
610 REM  SUPPOSED TO COME ON).
620 REM
630 REM  WE'VE PUT ON SOME DEMONSTRA-
640 REM  TIONS WITH REACTIONS RANGING
650 REM  FROM EXCITEMENT TO HYSTERIA.
660 REM
670 REM  HAVE FUN!
680 REM
690 REM                 DAN CHERNOFF
700 REM
710 REM (MODS & NARRATIVE BY 'WRENCH')
720 REM
730 Z=300:ZZ=2000
740 FORX=1TO5:READX$:NEXTX
750 DIMPN$(15)
760 FORX=1TO14
770 READX$:PN$(X)=X$
780 NEXTX
790 POKE53280,5:POKE53281,0:PRINT"[147]":POKE53272,21
800 PRINTCHR$(12)
810 PRINT"  DIALING . . . . ";
820 FORX=1TO14
830 PRINTPN$(X);
840 FORY=1TO600:NEXTY
850 NEXTX
860 FORX=1TO1000:NEXTX
870 PRINT:PRINT"  WAITING FOR CONNECTION...."
875 FOR X=1TO 5500:NEXTX:POKE56579,16
876 FOR X=1TO 500:NEXT X
880 PRINTCHR$(12)
890 DIMA$(100)
900 PRINT""
910 M$=" NORAD SYSTEM COMCON4 . . . . CONNECTED":GOSUB2690:GOSUB2670
920 PRINT:PRINT""
930 M$="AUTHORITY CODE-->":GOSUB2690:FORX=1TO6:GOSUB1450:NEXT
940 ZZ=0:GOSUB1480
950 PRINT"":M$="        NORAD PRIME ACCESS":GOSUB2690
960 PRINT
970 M$="        [163][163][163][163][163] [163][163][163][163][163] [163][163][163][163][163][163]":GOSUB2690
980 PRINT:PRINT
990 PRINT:M$="            WARNING!":GOSUB2690
1000 PRINT:M$="            [163][163][163][163][163][163][163][163]":GOSUB2690
1010 FORX=1TO3:GOSUB2660:NEXT
1020 PRINT:PRINT:M$="INCOMING CALLERS SUBJECT TO UNITED":GOSUB2690
1030 PRINT
1040 M$="STATES MILITARY TRIBUNAL JUSTICE SYSTEM.":GOSUB2690
1050 PRINT
1060 M$="FOREIGN ACCESS STRICTLY PROHIBITED.":GOSUB2690:PRINT:PRINT
1070 M$="ACCESS IS ON A NEED TO KNOW, EYES-ONLY":GOSUB2690
1080 PRINT
1090 M$="BASIS FOR ALL BUT COMMAND AUTHORITY.":GOSUB2690:PRINT:PRINT
1100 M$="AT THIS POINT, IMPROPER IDENTIFICATION":GOSUB2690
1110 PRINT
1120 M$="WILL RESULT IN AUTOMATIC SURVEILLANCE":GOSUB2690:PRINT
1130 M$="OF CONNECTING TELEPHONE LINE AND":GOSUB2690:PRINT
1140 M$="INFORMATION SO GATHERED WILL BE PROVIDED":GOSUB2690
1150 M$="TO THE PROPER DOMESTIC POLICE AND":GOSUB2690:PRINT
1160 M$="GOVERNMENTAL AGENCIES...................":GOSUB2690
1170 FORX=1TO150:NEXTX
1180 PRINT"":M$="       NORAD PRIME ACCESS":GOSUB2690
1190 PRINT:M$="       [163][163][163][163][163][160][163][163][163][163][163][160][163][163][163][163][163][163]":GOSUB2690
1200 PRINT:PRINT
1210 M$="PLEASE ENTER YOUR EYES-ONLY CODE->":GOSUB2690:FORX=1TO6:GOSUB1450:NEXTX
1220 PRINT:PRINT
1230 M$="CODE ENTERED IMPLIES COMMAND AUTHORITY!":GOSUB2690
1240 PRINT"":M$="ENTER YOUR VERIFICATION AS GIVEN IN....":GOSUB2690
1250 FORX=1TO900:NEXTX:PRINT
1260 XD=INT(RND(0)*5)+1:ONXDGOSUB2800,2810,2820,2830,2840
1270 PRINT:M$="ENTER -->":GOSUB2690:FORX=1TO6:GOSUB1450:NEXT
1280 GOSUB1480
1290 PRINT"":M$="  NORAD COMMAND LEVEL":GOSUB2690:PRINT
1300 M$="  [163][163][163][163][163][160][163][163][163][163][163][163][163][160][163][163][163][163][163]":GOSUB2690:PRINT
1310 PRINT
1320 M$="SIR, COMCON4 REPORTS UPTIME VERIFIED FOR":GOSUB2690
1330 M$="NEXT ONE HOUR.":GOSUB2690:PRINT
1340 PRINT:M$="NORAD COMMAND CENTER CAN BE REACHED AT":GOSUB2690:PRINT
1350 M$="ANY TIME WITH PASSWORDS AS PROVIDED IN":GOSUB2690:PRINT
1360 M$="THE LANGLEY PROTOCOLS.":GOSUB2690:PRINT
1370 PRINT:M$="ENTERING DIRECT COMMAND MODE....":GOSUB2690:PRINT
1380 GOSUB1490
1390 PRINTCHR$(12)
1400 REMM$="  NORAD COMMAND LEVEL":GOSUB5000:PRINT
1410 REMM$="  [163][163][163][163][163][160][163][163][163][163][163][163][163][160][163][163][163][163][163]":GOSUB5000:PRINT
1420 REMPRINT"        "  "
1430 [137]1380
1440 [128]
1450 [161]A$:[139]A$[178]""[167]1450
1460 [153]A$;:A$[178]""
1470 [142]
1480 [129]X[178]1[164]1000[170]ZZ:[130]X:[153]:[142]
1490 [153]:[153]:[133]"===>";A$
1500 [139][200](A$,7)[178]"LANGLEY"[167][141]1610
1510 [139][200](A$,3)[178]"COM"[167][141]2160:[142]
1520 [139][200](A$,3)[178]"CEN"[167][141]2160:[142]
1530 [139][200](A$,3)[178]"ACC"[167][141]2160:[142]
1540 [153]:M$[178]"SEARCHING FOR SUBPROGRAM....":[141]2690:[153]:[129]X[178]1[164]2000:[130]
1550 M$[178]" ....RUNNING " :[141]2690:M$[178]A$:[141]2690
1560 M$[178]" ON CPU":[141]2690:[153][181]([187](0)[172]20)
1570 A[178][181]([187](0)[172]3[170]1)
1580 [129]J[178]1[164]1000:[130]
1590 [145]A[141]1780,2030,2390
1600 [142]
1610 [141]1480
1620 [153][199](12):[129]X[178]1[164]4:[153];:[141]2670:[153];:[130]X:[153]"COMCON4....REQUEST RECORDED"
1630 [153]"PROCESSING. STANDBY"
1640 [129]X[178]1[164]1000:[130]X:[141]1480
1650 M$[178]"  NORAD CENTRAL COMMAND":[141]2690:[153]
1660 M$[178]"  TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(":[141]2690:[153]
1670 [153]:M$[178]"YOU HAVE REACHED LANGLEY COMMAND CENTER.":[141]2690:[153]
1680 M$[178]"PRIMARY INTELLIGENCE VERIFICATION CODE, PLEASE==>":[141]2690
1690 [129]X[178]1[164]6:[141]1450:[130]X
1700 [153]
1710 [141]2670:[153]:M$[178]"EXECUTIVE POWER CLAIM ENTERED . . .":[141]2690
1720 [153]:M$[178]"AIR FORCE ONE FALLBACK ALERT!":[141]2690
1730 [153]:[153]:M$[178]"MR. PRESIDENT, PLEASE ENTER YOUR TOTAL":[141]2690:[153]
1740 M$[178]"COMMAND AUTHORIZATION ==>":[141]2690
1750 [129]X[178]1[164]6:[141]1450:[130]
1760 [153]
1770 [137]2470
1780 [143]    FIRST FAKE OUTPUT
1790 [141]1900
1800 [141]1480
1810 [141]2750
1820 [129]X[178]1[164][181]([187](0)[172]5)[170]1
1830 [129]Y[178]1[164]20
1840 [153][181]([187](0)[172]9[170]1);" ";
1850 [130]Y:[130]X
1860 [153]:[153]:
1870 M$[178]"PRESS RETURN WHEN DECODED ==>":[141]2690:[133]C$
1880 [142]
1890 [140]
1900 [143]  COMMAND SUBROUTINE
1910 [140]
1920 [153][199](12)
1930 M$[178]"  NORAD COMMAND LEVEL":[141]2690:[153]
1940 M$[178]"  TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(":[141]2690:[153]
1950 [153]:[129]X[178]1[164]5:[135]B$(X):[130]X
1960 [131]"GREEN","GOLD","CRIMSON","VIOLET","OLIVE"
1970 [131]1,-,2,0,3,-,4,3,2,-,8,7,9,1
1980 M$[178]"USING BOOK":[141]2690:[153][181]([187](0)[172]99[170]1);
1990 M$[178]B$([181]([187](0)[172]5)):[141]2690
2000 [153]:[153]:[129]J[178]1[164]1000:[130]
2010 [140]:[142]
2020 [142]
2030 [143]    SECOND FAKE OUTPUT
2040 [141]1900
2050 [153][199](12)
2060 [141]2750
2070 [129]X[178]1[164][181]([187](0)[172]100[170]1)
2080 [129]Y[178]1[164][181]([187](0)[172]10[170]1)
2090 Z[178][181]([187](0)[172]26[170]65)
2100 [153][199](Z);
2110 [130]Y
2120 [153]" ";
2130 [130]X
2140 [153]:[153]:M$[178]"PRESS RETURN WHEN DECODED==>":[141]2690:[133]A$
2150 [142]
2160 [143]  THIRD FAKE OUTPUT
2170 CK[178]CK[170]1
2180 [141]1900
2190 [153][199](12)
2200 [153]:M$[178]"WARNING!":[141]2690:[153]
2210 M$[178]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[141]2690:[153]
2220 [153]:[129]X[178]1[164]4:[153];:[141]2670:[153];:[130]:[153]"
2230 M$="SIR, YOUR PROGRAM, ":GOSUB2690:M$=A$:GOSUB2690:PRINT:PRINT
2240 M$="IS NOT IN CPU CATALOG":GOSUB2690:PRINT:PRINT
2250 M$="PLEASE RE-ENTER YOUR COMMAND AUTHORITY":GOSUB2690:PRINT
2260 M$="CODE==>":GOSUB2690:FORX=1TO6:GOSUB1450:NEXT
2270 IFCK>4THENGOTO2470
2280 M$="PROCESS A":GOSUB2690:FORX=1TO900:NEXT
2290 M$="..COMPARING..":GOSUB2690
2300 FORX=1TO1300:NEXT:M$="ACCEPTED!":GOSUB2690:PRINT
2310 FORX=1TO1000:NEXTX
2320 PRINT:M$="SIR, PLEASE CHECK YOUR PROGRAM CODES.":GOSUB2690:PRINT
2330 M$="COMCON4 IS PROGRAMMED TO TERMINATE CALL":GOSUB2690:PRINT
2340 M$="ON FIFTH ILLEGAL PROGRAM CODE FOR":GOSUB2690:PRINT
2350 M$="REASONS OF NATIONAL SECURITY UNDER":GOSUB2690:PRINT
2360 M$="EXECUTIVE ORDER STAR4.":GOSUB2690:PRINT
2370 FORX=1TO500:NEXT
2380 RETURN
2390 REM    FOURTH FAKE OUTPUT
2400 GOSUB1900
2410 PRINTCHR$(12)
2420 PRINT:PRINT
2430 M$="PAGE":GOSUB2690:PRINTINT(RND(0)*1000);
2440 M$="IN CODE BOOK":GOSUB2690:M$=B$:GOSUB2690:M$=" IS":GOSUB2690:PRINT
2450 M$="STILL OPERATIVE PER PRIMARY DIRECTIVES.":GOSUB2690:PRINT
2460 FORX=1TO2000:NEXTX:RETURN
2470 REM  DESTRUCT!
2480 PRINTCHR$(12)
2490 M$="              NORAD":GOSUB2690:PRINT
2500 PRINT:M$="         **AUTO-LOGOFF**":GOSUB2690
2510 Z=0:PRINT
2520 PRINT:PRINT"A";:GOSUB2670:PRINT"U";:GOSUB2670
2530 PRINT"T";:GOSUB2670:PRINT"H";:GOSUB2670
2540 PRINT"O";:GOSUB2670:PRINT"R";:GOSUB2670
2550 PRINT;:GOSUB2670:PRINT"I";:GOSUB2670:PRINT"Z";:GOSUB2670:PRINT"A";:GOSUB2670:PRINT"T";:GOSUB2670:PRINT"I";:GOSUB2670:PRINT"O";:GOSUB2670:PRINT"N";:GOSUB2670:PRINT" ";
2560 PRINT"F";:GOSUB2670:PRINT"A";:GOSUB2670:PRINT"I";:GOSUB2670:PRINT"L";:GOSUB2670:PRINT"U";:GOSUB2670:PRINT"R";:GOSUB2670:PRINT"E";:GOSUB2670:PRINT"!!!"
2570 PRINT:PRINT:M$="CONNECTION TERMINATED WITH PREJUDICE.":GOSUB2690
2580 PRINT:M$="JOINT CHIEFS OF STAFF NOTIFIED.":GOSUB2690
2590 PRINT:M$="LOCAL POLICE INFORMED OF CIVILIAN":GOSUB2690:PRINT
2600 M$="OVERRIDE ATTEMPT.":GOSUB2690:PRINT
2610 PRINT
2620 PRINT:PRINT:M$="COMCON4.......":GOSUB2690
2630 FORJ=1TO500:NEXT:M$="DISCONNECTED.":GOSUB2690:PRINT:PRINT
2640 PRINT"HJH[3].  MNUIUYKLKJ+''3"
2650 FORX=1TO50000:NEXTX:END
2660 GOTO2680
2670 FORA=1TO10:NEXT:GOTO2680
2680 RETURN
2690 REM SLOW PRINT SUBROUTINE
2700 FORX=1TOLEN(M$)
2705 FOR KZ=1 TO 30:NEXT KZ
2710 PRINTMID$(M$,X,1);
2720 FORYA=1TO10:NEXTYA
2730 NEXTX
2740 RETURN
2750 REM HEADING SUBROUTINE
2760 M$="  NORAD COMMAND LEVEL":GOSUB2690:PRINT
2770 M$="  [163][163][163][163][163][160][163][163][163][163][163][163][163][160][163][163][163][163][163]":GOSUB2690:PRINT
2780 PRINT"":M$="COMCON4 RUNNING.....":GOSUB2690:M$=A$:GOSUB2690:PRINT:PRINT
2790 RETURN
2800 M$=">>>>>>BOOK 12RY-OLIVE<<<<<<":GOSUB2690:RETURN
2810 M$=">>>>>>BOOK 42XF-GREEN<<<<<<":GOSUB2690:RETURN
2820 M$=">>>>>>BOOK 13HJ-ORANGE<<<<<<":GOSUB2690:RETURN
2830 M$=">>>>>>BOOK 11DD-YELLOW<<<<<<":GOSUB2690:RETURN
2840 M$=">>>>>>BOOK 47XC-PURPLE<<<<<<":GOSUB2690:RETURN